home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / latex209 / contrib / textyl / psrc / textyl.pas.ac < prev    next >
Text File  |  1993-11-07  |  21KB  |  1,001 lines
  1.     k := r + 5;
  2.         end;
  3.      3: begin        (* cmsl10 *)
  4.         labtfmnam.str[r + 3] := 's';
  5.         labtfmnam.str[r + 4] := 'l';
  6.         labtfmnam.str[r + 5] := '1';
  7.         labtfmnam.str[r + 6] := '0';
  8.     k := r + 6;
  9.         end;
  10.      4: begin        (* cmtt8 *)
  11.         labtfmnam.str[r + 3] := 't';
  12.         labtfmnam.str[r + 4] := 't';
  13.         labtfmnam.str[r + 5] := '8';
  14.     k := r + 5;
  15.         end;
  16.      5: begin        (* cmsl8 *)
  17.         labtfmnam.str[r + 3] := 's';
  18.         labtfmnam.str[r + 4] := 'l';
  19.         labtfmnam.str[r + 5] := '8';
  20.     k := r + 5;
  21.         end;
  22.    end; (* case *)
  23.   labtfmnam.str[k + 1] := '.';
  24.   labtfmnam.str[k + 2] := 't';
  25.   labtfmnam.str[k + 3] := 'f';
  26.   labtfmnam.str[k + 4] := 'm';
  27.  
  28.   labtfmnam.str[k+5] := chr(32);
  29.  
  30.   labtfmnam.len := k + 4;
  31.  
  32.   gettfm (labtfmnam, design, p1, space, p3, p4, p5, p6, p7, cksm);
  33.  
  34.   LFontsDefd := LFontsDefd + 1;
  35.  
  36.   if (LFontsDefd > SizLFontTable) then
  37.      begin
  38.        complain (ERRREALBAD);
  39.        writestrng(labtfmnam, true);
  40.        writeln(logfile,'---not loadable. Size of Label Font table too small');
  41.        writestrng(labtfmnam,false);
  42.        writeln(' cannot be loaded. Too many label fonts. Table too small.');
  43.        jumpout;
  44.      end;
  45.  
  46.   i := LFontsDefd;
  47.   new (LFontTable[i]);
  48.   with LFontTable[i]^ do
  49.     begin
  50.     strcopy (labtfmnam.str, FontName.str, labtfmnam.len);
  51.     FontName.len := labtfmnam.len;
  52.     Cksum := cksm;
  53.     DesSize := design;
  54.     internalnumber := style;
  55.     spacewidth := space;
  56.     DVIFontNum := GDVIFN +1;
  57.     Isdefined := false;
  58.     end;  (* with *)
  59.  
  60.   GDVIFN := GDVIFN + 1;
  61.   fonttobedefined ('L', i);
  62.   GetLabFont := i;
  63. 99:
  64. end;  
  65.     
  66.  
  67. {------------------------------------------------}
  68. function vectangle (dx, dy : integer) :real;
  69. begin
  70.   if (dx <> 0) then
  71.     vectangle := arctan (dy / (dx * 1.0)) * RADTODEG
  72.   else
  73.     begin
  74.     if (dy > 0) then 
  75.       vectangle := 90.0
  76.     else
  77.       vectangle := -90.0;
  78.     end;
  79. end;
  80.  
  81.  
  82. {-----------------------------------------------------------}
  83. procedure definevectors (* var Vec: pVectFontInfRec *);
  84. var  units : real;
  85. begin
  86.   units := Vec^.MaxVectLen / 16.0;
  87. with Vec^.FontInfo[  0] do begin
  88.     Cht := round( 15.9688 * units);
  89.     Cdp := 0;
  90.     Cwd := round(  0.9981 * units);
  91.     Angle :=   86.4237;
  92. end;
  93.  
  94. with Vec^.FontInfo[  1] do begin
  95.     Cht := round( 15.8764 * units);
  96.     Cdp := 0;
  97.     Cwd := round(  1.9846 * units);
  98.     Angle :=   82.8750;
  99. end;
  100.  
  101. with Vec^.FontInfo[  2] do begin
  102.     Cht := round( 15.7260 * units);
  103.     Cdp := 0;
  104.     Cwd := round(  2.9486 * units);
  105.     Angle :=   79.3803;
  106. end;
  107.  
  108. with Vec^.FontInfo[  3] do begin
  109.     Cht := round( 15.5223 * units);
  110.     Cdp := 0;
  111.     Cwd := round(  3.8806 * units);
  112.     Angle :=   75.9638;
  113. end;
  114.  
  115. with Vec^.FontInfo[  4] do begin
  116.     Cht := round( 15.2717 * units);
  117.     Cdp := 0;
  118.     Cwd := round(  4.7724 * units);
  119.     Angle :=   72.6460;
  120. end;
  121.  
  122. with Vec^.FontInfo[  5] do begin
  123.     Cht := round( 14.9813 * units);
  124.     Cdp := 0;
  125.     Cwd := round(  5.6180 * units);
  126.     Angle :=   69.4440;
  127. end;
  128.  
  129. with Vec^.FontInfo[  6] do begin
  130.     Cht := round( 14.6585 * units);
  131.     Cdp := 0;
  132.     Cwd := round(  6.4131 * units);
  133.     Angle :=   66.3706;
  134. end;
  135.  
  136. with Vec^.FontInfo[  7] do begin
  137.     Cht := round( 14.3108 * units);
  138.     Cdp := 0;
  139.     Cwd := round(  7.1554 * units);
  140.     Angle :=   63.4349;
  141. end;
  142.  
  143. with Vec^.FontInfo[  8] do begin
  144.     Cht := round( 13.9452 * units);
  145.     Cdp := 0;
  146.     Cwd := round(  7.8442 * units);
  147.     Angle :=   60.6422;
  148. end;
  149.  
  150. with Vec^.FontInfo[  9] do begin
  151.     Cht := round( 13.5680 * units);
  152.     Cdp := 0;
  153.     Cwd := round(  8.4800 * units);
  154.     Angle :=   57.9946;
  155. end;
  156.  
  157. with Vec^.FontInfo[ 10] do begin
  158.     Cht := round( 13.1847 * units);
  159.     Cdp := 0;
  160.     Cwd := round(  9.0645 * units);
  161.     Angle :=   55.4915;
  162. end;
  163.  
  164. with Vec^.FontInfo[ 11] do begin
  165.     Cht := round( 12.8000 * units);
  166.     Cdp := 0;
  167.     Cwd := round(  9.6000 * units);
  168.     Angle :=   53.1301;
  169. end;
  170.  
  171. with Vec^.FontInfo[ 12] do begin
  172.     Cht := round( 12.4178 * units);
  173.     Cdp := 0;
  174.     Cwd := round( 10.0895 * units);
  175.     Angle :=   50.9061;
  176. end;
  177.  
  178. with Vec^.FontInfo[ 13] do begin
  179.     Cht := round( 12.0412 * units);
  180.     Cdp := 0;
  181.     Cwd := round( 10.5361 * units);
  182.     Angle :=   48.8141;
  183. end;
  184.  
  185. with Vec^.FontInfo[ 14] do begin
  186.     Cht := round( 11.6726 * units);
  187.     Cdp := 0;
  188.     Cwd := round( 10.9431 * units);
  189.     Angle :=   46.8476;
  190. end;
  191.  
  192. with Vec^.FontInfo[ 15] do begin
  193.     Cht := round( 11.3137 * units);
  194.     Cdp := 0;
  195.     Cwd := round( 11.3137 * units);
  196.     Angle :=   45.0000;
  197. end;
  198.  
  199. with Vec^.FontInfo[ 16] do begin
  200.     Cht := round( 10.9431 * units);
  201.     Cdp := 0;
  202.     Cwd := round( 11.6726 * units);
  203.     Angle :=   43.1524;
  204. end;
  205.  
  206. with Vec^.FontInfo[ 17] do begin
  207.     Cht := round( 10.5361 * units);
  208.     Cdp := 0;
  209.     Cwd := round( 12.0412 * units);
  210.     Angle :=   41.1859;
  211. end;
  212.  
  213. with Vec^.FontInfo[ 18] do begin
  214.     Cht := round( 10.0895 * units);
  215.     Cdp := 0;
  216.     Cwd := round( 12.4178 * units);
  217.     Angle :=   39.0939;
  218. end;
  219.  
  220. with Vec^.FontInfo[ 19] do begin
  221.     Cht := round(  9.6000 * units);
  222.     Cdp := 0;
  223.     Cwd := round( 12.8000 * units);
  224.     Angle :=   36.8699;
  225. end;
  226.  
  227. with Vec^.FontInfo[ 20] do begin
  228.     Cht := round(  9.0645 * units);
  229.     Cdp := 0;
  230.     Cwd := round( 13.1847 * units);
  231.     Angle :=   34.5085;
  232. end;
  233.  
  234. with Vec^.FontInfo[ 21] do begin
  235.     Cht := round(  8.4800 * units);
  236.     Cdp := 0;
  237.     Cwd := round( 13.5680 * units);
  238.     Angle :=   32.0054;
  239. end;
  240.  
  241. with Vec^.FontInfo[ 22] do begin
  242.     Cht := round(  7.8442 * units);
  243.     Cdp := 0;
  244.     Cwd := round( 13.9452 * units);
  245.     Angle :=   29.3578;
  246. end;
  247.  
  248. with Vec^.FontInfo[ 23] do begin
  249.     Cht := round(  7.1554 * units);
  250.     Cdp := 0;
  251.     Cwd := round( 14.3108 * units);
  252.     Angle :=   26.5651;
  253. end;
  254.  
  255. with Vec^.FontInfo[ 24] do begin
  256.     Cht := round(  6.4131 * units);
  257.     Cdp := 0;
  258.     Cwd := round( 14.6585 * units);
  259.     Angle :=   23.6294;
  260. end;
  261.  
  262. with Vec^.FontInfo[ 25] do begin
  263.     Cht := round(  5.6180 * units);
  264.     Cdp := 0;
  265.     Cwd := round( 14.9813 * units);
  266.     Angle :=   20.5560;
  267. end;
  268.  
  269. with Vec^.FontInfo[ 26] do begin
  270.     Cht := round(  4.7724 * units);
  271.     Cdp := 0;
  272.     Cwd := round( 15.2717 * units);
  273.     Angle :=   17.3540;
  274. end;
  275.  
  276. with Vec^.FontInfo[ 27] do begin
  277.     Cht := round(  3.8806 * units);
  278.     Cdp := 0;
  279.     Cwd := round( 15.5223 * units);
  280.     Angle :=   14.0362;
  281. end;
  282.  
  283. with Vec^.FontInfo[ 28] do begin
  284.     Cht := round(  2.9486 * units);
  285.     Cdp := 0;
  286.     Cwd := round( 15.7260 * units);
  287.     Angle :=   10.6197;
  288. end;
  289.  
  290. with Vec^.FontInfo[ 29] do begin
  291.     Cht := round(  1.9846 * units);
  292.     Cdp := 0;
  293.     Cwd := round( 15.8764 * units);
  294.     Angle :=    7.1250;
  295. end;
  296.  
  297. with Vec^.FontInfo[ 30] do begin
  298.     Cht := round(  0.9981 * units);
  299.     Cdp := 0;
  300.     Cwd := round( 15.9688 * units);
  301.     Angle :=    3.5763;
  302. end;
  303.  
  304. with Vec^.FontInfo[ 31] do begin
  305.     Cht := 0;
  306.     Cdp := 0;
  307.     Cwd := round( 16.0000 * units);
  308.     Angle :=    0.0000;
  309. end;
  310.  
  311. with Vec^.FontInfo[ 32] do begin
  312.      Cdp := round(  0.9981 * units);
  313.      Cht := 0;
  314.     Cwd := round( 15.9688 * units);
  315.     Angle :=   -3.5763;
  316. end;
  317.  
  318. with Vec^.FontInfo[ 33] do begin
  319.      Cdp := round(  1.9846 * units);
  320.      Cht := 0;
  321.     Cwd := round( 15.8764 * units);
  322.     Angle :=   -7.1250;
  323. end;
  324.  
  325. with Vec^.FontInfo[ 34] do begin
  326.      Cdp := round(  2.9486 * units);
  327.      Cht := 0;
  328.     Cwd := round( 15.7260 * units);
  329.     Angle :=  -10.6197;
  330. end;
  331.  
  332. with Vec^.FontInfo[ 35] do begin
  333.      Cdp := round(  3.8806 * units);
  334.      Cht := 0;
  335.     Cwd := round( 15.5223 * units);
  336.     Angle :=  -14.0362;
  337. end;
  338.  
  339. with Vec^.FontInfo[ 36] do begin
  340.      Cdp := round(  4.7724 * units);
  341.      Cht := 0;
  342.     Cwd := round( 15.2717 * units);
  343.     Angle :=  -17.3540;
  344. end;
  345.  
  346. with Vec^.FontInfo[ 37] do begin
  347.      Cdp := round(  5.6180 * units);
  348.      Cht := 0;
  349.     Cwd := round( 14.9813 * units);
  350.     Angle :=  -20.5560;
  351. end;
  352.  
  353. with Vec^.FontInfo[ 38] do begin
  354.      Cdp := round(  6.4131 * units);
  355.      Cht := 0;
  356.     Cwd := round( 14.6585 * units);
  357.     Angle :=  -23.6294;
  358. end;
  359.  
  360. with Vec^.FontInfo[ 39] do begin
  361.      Cdp := round(  7.1554 * units);
  362.      Cht := 0;
  363.     Cwd := round( 14.3108 * units);
  364.     Angle :=  -26.5651;
  365. end;
  366.  
  367. with Vec^.FontInfo[ 40] do begin
  368.      Cdp := round(  7.8442 * units);
  369.      Cht := 0;
  370.     Cwd := round( 13.9452 * units);
  371.     Angle :=  -29.3578;
  372. end;
  373.  
  374. with Vec^.FontInfo[ 41] do begin
  375.      Cdp := round(  8.4800 * units);
  376.      Cht := 0;
  377.     Cwd := round( 13.5680 * units);
  378.     Angle :=  -32.0054;
  379. end;
  380.  
  381. with Vec^.FontInfo[ 42] do begin
  382.      Cdp := round(  9.0645 * units);
  383.      Cht := 0;
  384.     Cwd := round( 13.1847 * units);
  385.     Angle :=  -34.5085;
  386. end;
  387.  
  388. with Vec^.FontInfo[ 43] do begin
  389.      Cdp := round(  9.6000 * units);
  390.      Cht := 0;
  391.     Cwd := round( 12.8000 * units);
  392.     Angle :=  -36.8699;
  393. end;
  394.  
  395. with Vec^.FontInfo[ 44] do begin
  396.      Cdp := round( 10.0895 * units);
  397.      Cht := 0;
  398.     Cwd := round( 12.4178 * units);
  399.     Angle :=  -39.0939;
  400. end;
  401.  
  402. with Vec^.FontInfo[ 45] do begin
  403.      Cdp := round( 10.5361 * units);
  404.      Cht := 0;
  405.     Cwd := round( 12.0412 * units);
  406.     Angle :=  -41.1859;
  407. end;
  408.  
  409. with Vec^.FontInfo[ 46] do begin
  410.      Cdp := round( 10.9431 * units);
  411.      Cht := 0;
  412.     Cwd := round( 11.6726 * units);
  413.     Angle :=  -43.1524;
  414. end;
  415.  
  416. with Vec^.FontInfo[ 47] do begin
  417.      Cdp := round( 11.3137 * units);
  418.      Cht := 0;
  419.     Cwd := round( 11.3137 * units);
  420.     Angle :=  -45.0000;
  421. end;
  422.  
  423. with Vec^.FontInfo[ 48] do begin
  424.     Cdp := round ( 11.6726 * units);
  425.     Cht := 0;
  426.     Cwd := round( 10.9431 * units);
  427.     Angle :=  -46.8476;
  428. end;
  429.  
  430. with Vec^.FontInfo[ 49] do begin
  431.     Cdp := round ( 12.0412 * units);
  432.     Cht := 0;
  433.     Cwd := round( 10.5361 * units);
  434.     Angle :=  -48.8141;
  435. end;
  436.  
  437. with Vec^.FontInfo[ 50] do begin
  438.     Cdp := round ( 12.4178 * units);
  439.     Cht := 0;
  440.     Cwd := round( 10.0895 * units);
  441.     Angle :=  -50.9061;
  442. end;
  443.  
  444. with Vec^.FontInfo[ 51] do begin
  445.     Cdp := round ( 12.8000 * units);
  446.     Cht := 0;
  447.     Cwd := round(  9.6000 * units);
  448.     Angle :=  -53.1301;
  449. end;
  450.  
  451. with Vec^.FontInfo[ 52] do begin
  452.     Cdp := round ( 13.1847 * units);
  453.     Cht := 0;
  454.     Cwd := round(  9.0645 * units);
  455.     Angle :=  -55.4915;
  456. end;
  457.  
  458. with Vec^.FontInfo[ 53] do begin
  459.     Cdp := round ( 13.5680 * units);
  460.     Cht := 0;
  461.     Cwd := round(  8.4800 * units);
  462.     Angle :=  -57.9946;
  463. end;
  464.  
  465. with Vec^.FontInfo[ 54] do begin
  466.     Cdp := round ( 13.9452 * units);
  467.     Cht := 0;
  468.     Cwd := round(  7.8442 * units);
  469.     Angle :=  -60.6422;
  470. end;
  471.  
  472. with Vec^.FontInfo[ 55] do begin
  473.     Cdp := round ( 14.3108 * units);
  474.     Cht := 0;
  475.     Cwd := round(  7.1554 * units);
  476.     Angle :=  -63.4349;
  477. end;
  478.  
  479. with Vec^.FontInfo[ 56] do begin
  480.     Cdp := round ( 14.6585 * units);
  481.     Cht := 0;
  482.     Cwd := round(  6.4131 * units);
  483.     Angle :=  -66.3706;
  484. end;
  485.  
  486. with Vec^.FontInfo[ 57] do begin
  487.     Cdp := round ( 14.9813 * units);
  488.     Cht := 0;
  489.     Cwd := round(  5.6180 * units);
  490.     Angle :=  -69.4440;
  491. end;
  492.  
  493. with Vec^.FontInfo[ 58] do begin
  494.     Cdp := round ( 15.2717 * units);
  495.     Cht := 0;
  496.     Cwd := round(  4.7724 * units);
  497.     Angle :=  -72.6460;
  498. end;
  499.  
  500. with Vec^.FontInfo[ 59] do begin
  501.     Cdp := round ( 15.5223 * units);
  502.     Cht := 0;
  503.     Cwd := round(  3.8806 * units);
  504.     Angle :=  -75.9638;
  505. end;
  506.  
  507. with Vec^.FontInfo[ 60] do begin
  508.     Cdp := round ( 15.7260 * units);
  509.     Cht := 0;
  510.     Cwd := round(  2.9486 * units);
  511.     Angle :=  -79.3803;
  512. end;
  513.  
  514. with Vec^.FontInfo[ 61] do begin
  515.     Cdp := round ( 15.8764 * units);
  516.     Cht := 0;
  517.     Cwd := round(  1.9846 * units);
  518.     Angle :=  -82.8750;
  519. end;
  520.  
  521. with Vec^.FontInfo[ 62] do begin
  522.     Cdp := round ( 15.9688 * units);
  523.     Cht := 0;
  524.     Cwd := round(  0.9981 * units);
  525.     Angle :=  -86.4237;
  526. end;
  527.  
  528. with Vec^.FontInfo[ 63] do begin
  529.     Cht := round(  8.0000 * units);
  530.     Cdp := 0;
  531.     Cwd := 0;
  532.     Angle :=   90.0000;
  533. end;
  534.  
  535. with Vec^.FontInfo[ 64] do begin
  536.     Cht := round(  7.9382 * units);
  537.     Cdp := 0;
  538.     Cwd := round(  0.9923 * units);
  539.     Angle :=   82.8750;
  540. end;
  541.  
  542. with Vec^.FontInfo[ 65] do begin
  543.     Cht := round(  7.7611 * units);
  544.     Cdp := 0;
  545.     Cwd := round(  1.9403 * units);
  546.     Angle :=   75.9638;
  547. end;
  548.  
  549. with Vec^.FontInfo[ 66] do begin
  550.     Cht := round(  7.4906 * units);
  551.     Cdp := 0;
  552.     Cwd := round(  2.8090 * units);
  553.     Angle :=   69.4440;
  554. end;
  555.  
  556. with Vec^.FontInfo[ 67] do begin
  557.     Cht := round(  7.1554 * units);
  558.     Cdp := 0;
  559.     Cwd := round(  3.5777 * units);
  560.     Angle :=   63.4349;
  561. end;
  562.  
  563. with Vec^.FontInfo[ 68] do begin
  564.     Cht := round(  6.7840 * units);
  565.     Cdp := 0;
  566.     Cwd := round(  4.2400 * units);
  567.     Angle :=   57.9946;
  568. end;
  569.  
  570. with Vec^.FontInfo[ 69] do begin
  571.     Cht := round(  6.4000 * units);
  572.     Cdp := 0;
  573.     Cwd := round(  4.8000 * units);
  574.     Angle :=   53.1301;
  575. end;
  576.  
  577. with Vec^.FontInfo[ 70] do begin
  578.     Cht := round(  6.0206 * units);
  579.     Cdp := 0;
  580.     Cwd := round(  5.2680 * units);
  581.     Angle :=   48.8141;
  582. end;
  583.  
  584. with Vec^.FontInfo[ 71] do begin
  585.     Cht := round(  5.6569 * units);
  586.     Cdp := 0;
  587.     Cwd := round(  5.6569 * units);
  588.     Angle :=   45.0000;
  589. end;
  590.  
  591. with Vec^.FontInfo[ 72] do begin
  592.     Cht := round(  5.2680 * units);
  593.     Cdp := 0;
  594.     Cwd := round(  6.0206 * units);
  595.     Angle :=   41.1859;
  596. end;
  597.  
  598. with Vec^.FontInfo[ 73] do begin
  599.     Cht := round(  4.8000 * units);
  600.     Cdp := 0;
  601.     Cwd := round(  6.4000 * units);
  602.     Angle :=   36.8699;
  603. end;
  604.  
  605. with Vec^.FontInfo[ 74] do begin
  606.     Cht := round(  4.2400 * units);
  607.     Cdp := 0;
  608.     Cwd := round(  6.7840 * units);
  609.     Angle :=   32.0054;
  610. end;
  611.  
  612. with Vec^.FontInfo[ 75] do begin
  613.     Cht := round(  3.5777 * units);
  614.     Cdp := 0;
  615.     Cwd := round(  7.1554 * units);
  616.     Angle :=   26.5651;
  617. end;
  618.  
  619. with Vec^.FontInfo[ 76] do begin
  620.     Cht := round(  2.8090 * units);
  621.     Cdp := 0;
  622.     Cwd := round(  7.4906 * units);
  623.     Angle :=   20.5560;
  624. end;
  625.  
  626. with Vec^.FontInfo[ 77] do begin
  627.     Cht := round(  1.9403 * units);
  628.     Cdp := 0;
  629.     Cwd := round(  7.7611 * units);
  630.     Angle :=   14.0362;
  631. end;
  632.  
  633. with Vec^.FontInfo[ 78] do begin
  634.     Cht := round(  0.9923 * units);
  635.     Cdp := 0;
  636.     Cwd := round(  7.9382 * units);
  637.     Angle :=    7.1250;
  638. end;
  639.  
  640. with Vec^.FontInfo[ 79] do begin
  641.     Cht := 0;
  642.     Cdp := 0;
  643.     Cwd := round(  8.0000 * units);
  644.     Angle :=    0.0000;
  645. end;
  646.  
  647. with Vec^.FontInfo[ 80] do begin
  648.      Cdp := round(  0.9923 * units);
  649.      Cht := 0;
  650.     Cwd := round(  7.9382 * units);
  651.     Angle :=   -7.1250;
  652. end;
  653.  
  654. with Vec^.FontInfo[ 81] do begin
  655.      Cdp := round(  1.9403 * units);
  656.      Cht := 0;
  657.     Cwd := round(  7.7611 * units);
  658.     Angle :=  -14.0362;
  659. end;
  660.  
  661. with Vec^.FontInfo[ 82] do begin
  662.      Cdp := round(  2.8090 * units);
  663.      Cht := 0;
  664.     Cwd := round(  7.4906 * units);
  665.     Angle :=  -20.5560;
  666. end;
  667.  
  668. with Vec^.FontInfo[ 83] do begin
  669.      Cdp := round(  3.5777 * units);
  670.      Cht := 0;
  671.     Cwd := round(  7.1554 * units);
  672.     Angle :=  -26.5651;
  673. end;
  674.  
  675. with Vec^.FontInfo[ 84] do begin
  676.      Cdp := round(  4.2400 * units);
  677.      Cht := 0;
  678.     Cwd := round(  6.7840 * units);
  679.     Angle :=  -32.0054;
  680. end;
  681.  
  682. with Vec^.FontInfo[ 85] do begin
  683.      Cdp := round(  4.8000 * units);
  684.      Cht := 0;
  685.     Cwd := round(  6.4000 * units);
  686.     Angle :=  -36.8699;
  687. end;
  688.  
  689. with Vec^.FontInfo[ 86] do begin
  690.      Cdp := round(  5.2680 * units);
  691.      Cht := 0;
  692.     Cwd := round(  6.0206 * units);
  693.     Angle :=  -41.1859;
  694. end;
  695.  
  696. with Vec^.FontInfo[ 87] do begin
  697.      Cdp := round(  5.6569 * units);
  698.      Cht := 0;
  699.     Cwd := round(  5.6569 * units);
  700.     Angle :=  -45.0000;
  701. end;
  702.  
  703. with Vec^.FontInfo[ 88] do begin
  704.     Cdp := round (  6.0206 * units);
  705.     Cht := 0;
  706.     Cwd := round(  5.2680 * units);
  707.     Angle :=  -48.8141;
  708. end;
  709.  
  710. with Vec^.FontInfo[ 89] do begin
  711.     Cdp := round (  6.4000 * units);
  712.     Cht := 0;
  713.     Cwd := round(  4.8000 * units);
  714.     Angle :=  -53.1301;
  715. end;
  716.  
  717. with Vec^.FontInfo[ 90] do begin
  718.     Cdp := round (  6.7840 * units);
  719.     Cht := 0;
  720.     Cwd := round(  4.2400 * units);
  721.     Angle :=  -57.9946;
  722. end;
  723.  
  724. with Vec^.FontInfo[ 91] do begin
  725.     Cdp := round (  7.1554 * units);
  726.     Cht := 0;
  727.     Cwd := round(  3.5777 * units);
  728.     Angle :=  -63.4349;
  729. end;
  730.  
  731. with Vec^.FontInfo[ 92] do begin
  732.     Cdp := round (  7.4906 * units);
  733.     Cht := 0;
  734.     Cwd := round(  2.8090 * units);
  735.     Angle :=  -69.4440;
  736. end;
  737.  
  738. with Vec^.FontInfo[ 93] do begin
  739.     Cdp := round (  7.7611 * units);
  740.     Cht := 0;
  741.     Cwd := round(  1.9403 * units);
  742.     Angle :=  -75.9638;
  743. end;
  744.  
  745. with Vec^.FontInfo[ 94] do begin
  746.     Cdp := round (  7.9382 * units);
  747.     Cht := 0;
  748.     Cwd := round(  0.9923 * units);
  749.     Angle :=  -82.8750;
  750. end;
  751.  
  752. with Vec^.FontInfo[ 95] do begin
  753.     Cdp := round (  8.0000 * units);
  754.     Cht := 0;
  755.     Cwd := 0;
  756.     Angle :=  -90.0000;
  757. end;
  758.  
  759. with Vec^.FontInfo[ 96] do begin
  760.     Cht := round(  4.0000 * units);
  761.     Cdp := 0;
  762.     Cwd := 0;
  763.     Angle :=   90.0000;
  764. end;
  765.  
  766. with Vec^.FontInfo[ 97] do begin
  767.     Cht := round(  3.8806 * units);
  768.     Cdp := 0;
  769.     Cwd := round(  0.9701 * units);
  770.     Angle :=   75.9638;
  771. end;
  772.  
  773. with Vec^.FontInfo[ 98] do begin
  774.     Cht := round(  3.5777 * units);
  775.     Cdp := 0;
  776.     Cwd := round(  1.7889 * units);
  777.     Angle :=   63.4349;
  778. end;
  779.  
  780. with Vec^.FontInfo[ 99] do begin
  781.     Cht := round(  3.2000 * units);
  782.     Cdp := 0;
  783.     Cwd := round(  2.4000 * units);
  784.     Angle :=   53.1301;
  785. end;
  786.  
  787. with Vec^.FontInfo[100] do begin
  788.     Cht := round(  2.8284 * units);
  789.     Cdp := 0;
  790.     Cwd := round(  2.8284 * units);
  791.     Angle :=   45.0000;
  792. end;
  793.  
  794. with Vec^.FontInfo[101] do begin
  795.     Cht := round(  2.4000 * units);
  796.     Cdp := 0;
  797.     Cwd := round(  3.2000 * units);
  798.     Angle :=   36.8699;
  799. end;
  800.  
  801. with Vec^.FontInfo[102] do begin
  802.     Cht := round(  1.7889 * units);
  803.     Cdp := 0;
  804.     Cwd := round(  3.5777 * units);
  805.     Angle :=   26.5651;
  806. end;
  807.  
  808. with Vec^.FontInfo[103] do begin
  809.     Cht := round(  0.9701 * units);
  810.     Cdp := 0;
  811.     Cwd := round(  3.8806 * units);
  812.     Angle :=   14.0362;
  813. end;
  814.  
  815. with Vec^.FontInfo[104] do begin
  816.     Cht := 0;
  817.     Cdp := 0;
  818.     Cwd := round(  4.0000 * units);
  819.     Angle :=    0.0000;
  820. end;
  821.  
  822. with Vec^.FontInfo[105] do begin
  823.      Cdp := round(  0.9701 * units);
  824.      Cht := 0;
  825.     Cwd := round(  3.8806 * units);
  826.     Angle :=  -14.0362;
  827. end;
  828.  
  829. with Vec^.FontInfo[106] do begin
  830.      Cdp := round(  1.7889 * units);
  831.      Cht := 0;
  832.     Cwd := round(  3.5777 * units);
  833.     Angle :=  -26.5651;
  834. end;
  835.  
  836. with Vec^.FontInfo[107] do begin
  837.      Cdp := round(  2.4000 * units);
  838.      Cht := 0;
  839.     Cwd := round(  3.2000 * units);
  840.     Angle :=  -36.8699;
  841. end;
  842.  
  843. with Vec^.FontInfo[108] do begin
  844.      Cdp := round(  2.8284 * units);
  845.      Cht := 0;
  846.     Cwd := round(  2.8284 * units);
  847.     Angle :=  -45.0000;
  848. end;
  849.  
  850. with Vec^.FontInfo[109] do begin
  851.     Cdp := round (  3.2000 * units);
  852.     Cht := 0;
  853.     Cwd := round(  2.4000 * units);
  854.     Angle :=  -53.1301;
  855. end;
  856.  
  857. with Vec^.FontInfo[110] do begin
  858.     Cdp := round (  3.5777 * units);
  859.     Cht := 0;
  860.     Cwd := round(  1.7889 * units);
  861.     Angle :=  -63.4349;
  862. end;
  863.  
  864. with Vec^.FontInfo[111] do begin
  865.     Cdp := round (  3.8806 * units);
  866.     Cht := 0;
  867.     Cwd := round(  0.9701 * units);
  868.     Angle :=  -75.9638;
  869. end;
  870.  
  871. with Vec^.FontInfo[112] do begin
  872.     Cdp := round (  4.0000 * units);
  873.     Cht := 0;
  874.     Cwd := 0;
  875.     Angle :=  -90.0000;
  876. end;
  877.  
  878. with Vec^.FontInfo[113] do begin
  879.     Cht := round(  2.0000 * units);
  880.     Cdp := 0;
  881.     Cwd := 0;
  882.     Angle :=   90.0000;
  883. end;
  884.  
  885. with Vec^.FontInfo[114] do begin
  886.     Cht := round(  1.7889 * units);
  887.     Cdp := 0;
  888.     Cwd := round(  0.8944 * units);
  889.     Angle :=   63.4349;
  890. end;
  891.  
  892. with Vec^.FontInfo[115] do begin
  893.     Cht := round(  1.4142 * units);
  894.     Cdp := 0;
  895.     Cwd := round(  1.4142 * units);
  896.     Angle :=   45.0000;
  897. end;
  898.  
  899. with Vec^.FontInfo[116] do begin
  900.     Cht := round(  0.8944 * units);
  901.     Cdp := 0;
  902.     Cwd := round(  1.7889 * units);
  903.     Angle :=   26.5651;
  904. end;
  905.  
  906. with Vec^.FontInfo[117] do begin
  907.     Cht := 0;
  908.     Cdp := 0;
  909.     Cwd := round(  2.0000 * units);
  910.     Angle :=    0.0000;
  911. end;
  912.  
  913. with Vec^.FontInfo[118] do begin
  914.      Cdp := round(  0.8944 * units);
  915.      Cht := 0;
  916.     Cwd := round(  1.7889 * units);
  917.     Angle :=  -26.5651;
  918. end;
  919.  
  920. with Vec^.FontInfo[119] do begin
  921.      Cdp := round(  1.4142 * units);
  922.      Cht := 0;
  923.     Cwd := round(  1.4142 * units);
  924.     Angle :=  -45.0000;
  925. end;
  926.  
  927. with Vec^.FontInfo[120] do begin
  928.     Cdp := round (  1.7889 * units);
  929.     Cht := 0;
  930.     Cwd := round(  0.8944 * units);
  931.     Angle :=  -63.4349;
  932. end;
  933.  
  934. with Vec^.FontInfo[121] do begin
  935.     Cdp := round (  2.0000 * units);
  936.     Cht := 0;
  937.     Cwd := 0;
  938.     Angle :=  -90.0000;
  939. end;
  940.  
  941. with Vec^.FontInfo[122] do begin
  942.     Cht := round(  1.0000 * units);
  943.     Cdp := 0;
  944.     Cwd := 0;
  945.     Angle :=   90.0000;
  946. end;
  947.  
  948. with Vec^.FontInfo[123] do begin
  949.     Cht := round(  0.7071 * units);
  950.     Cdp := 0;
  951.     Cwd := round(  0.7071 * units);
  952.     Angle :=   45.0000;
  953. end;
  954.  
  955. with Vec^.FontInfo[124] do begin
  956.     Cht := 0;
  957.     Cdp := 0;
  958.     Cwd := round(  1.0000 * units);
  959.     Angle :=    0.0000;
  960. end;
  961.  
  962. with Vec^.FontInfo[125] do begin
  963.      Cdp := round(  0.7071 * units);
  964.      Cht := 0;
  965.     Cwd := round(  0.7071 * units);
  966.     Angle :=  -45.0000;
  967. end;
  968.  
  969. with Vec^.FontInfo[126] do begin
  970.     Cdp := round (  1.0000 * units);
  971.     Cht := 0;
  972.     Cwd := 0;
  973.     Angle :=  -90.0000;
  974. end;
  975.  
  976. with Vec^.FontInfo[127] do begin
  977.     Cht := 0;
  978.     Cdp := 0;
  979.     Cwd := 0;
  980.     Angle :=  -90.0000;
  981. end;
  982.  
  983. end; (* define vectors *)
  984.  
  985.  
  986.  
  987.  
  988. {-------------------------------------------------}
  989. (* If, for some reason, you do not want to deal with
  990.   music capabilities, replace the body of this procedure
  991.   with just a begin end; pair  and also the TylBeam proc.
  992. *)    
  993. procedure definebeams (* var M : pMusFontInfRec *);
  994. var i : integer;
  995.   begin
  996.  
  997. end;
  998.  
  999. {----------------------------------------------------------}
  1000. (* use pre-calculated coordinates of a circle that has a
  1001.